Diccionario Visual Trilingue/VISUAL.iso/STARTUP.DIR/00001_Start-stop Movie.ls

Text File | 1997-07-04 | 4.8 KB | 133 lines

global gFreeSprite, gCurrentCut, gCurrentScreen, gTextLanguage, gPictureOnly, gShowAll, gZoomHighlight, gLabelHeight, gActiveHS, gFBData, gPictData, gRedTagData, gBracketData, gRegionData, gZoomData, gCutData, gJumpData, gLinkData, gZoomRect, gCancelMouseDown, gOldLabelList, gDrawColor, gListWordFrench, gListWordEnglish, gListWordSpanish, gNbWord, gNbWordMax, gHighLightPos, gHighLightPosC, gCurrentPos, gCurrentPosC, gSelection, gIndexChange, gContenuChange, gNbItemC, gCurrentField, gCurrentFieldC, gCurrAnimation, gPopUpButtonCast, gScreenStatus, gTransitionSize, gReturnDialog, gReturnHelp, gLstHelpRect, gIndexLabel, gDataPath, glstOldVignetPath, glstVignetPath, gRunningMovie, gLstIllustScr, gLstAllLabels, gCompareSC, gSndCastNumber, gCallingLevel, gContenuPicObj, gIndexPicObj, gLstAnimHS, gtheCDpath, gThreshold, gLowMemPanic, gSoundStartFix, gSoundStopFix, gSoundRangeFix, gPrefsPath, gPrinterObj, gSndSprite, gStringRessources, gEditorLanguage, gEditeur, gTHoffsets, gVoidSoundAccess, gPatchedLarousse

on GoToMain
  global gPrgKey
  set gEditorLanguage to 3
  set gVoidSoundAccess to []
  set gPatchedLarousse to value(the text of cast 12131)
  watchCursor()
  if voidp(gStringRessources) then
    set gStringRessources to value(field 9998)
    unLoadCast(9998)
  end if
  PreloadNeverCast()
  CheckSetUp()
  InitialiseGlobals()
  initSound("ON")
  set TempObj to FileIO(mnew, "READ", gPrefsPath & "7THOFST.NVG")
  set gTHoffsets to value(TempObj(mReadFile))
  TempObj(mdispose)
  set TempObj to FileIO(mnew, "READ", gPrefsPath & "SNDprm.txt")
  set TempList to value(TempObj(mReadFile))
  TempObj(mdispose)
  set gSoundStartFix to getAt(TempList, 1)
  set gSoundStopFix to getAt(TempList, 2)
  set gSoundRangeFix to getAt(TempList, 3)
  if the machineType = 256 then
    set gThreshold to getAt(TempList, 4)
    set gLowMemPanic to getAt(TempList, 5)
  else
    set gThreshold to getAt(TempList, 6)
    set gLowMemPanic to getAt(TempList, 7)
  end if
  if getAt(TempList, 7) = "Mouch" then
    set gLowMemPanic to 204800
    set gPrgKey to 1
  else
    set gPrgKey to -10
  end if
  set gContenuPicObj to FileIO(mnew, "read", gDataPath & "Pages_c.all")
  set gIndexPicObj to FileIO(mnew, "read", gDataPath & "Pages_i.all")
  set gFreeSprite to 48
  ResetGridSprites()
  set the puppet of sprite 3 to 1
  set the castNum of sprite 3 to gSndCastNumber
  updateStage()
  set the movieTime of sprite 3 to 0
  set the movieRate of sprite 3 to 1
  repeat while the movieTime of sprite 3 < 30
    updateStage()
  end repeat
  set the movieRate of sprite 3 to 0
  set the puppet of sprite 3 to 0
  set the text of cast 12065 to EMPTY
  GetNavigInfo([0, 1, 0])
end

on InitialiseGlobals
  InitGlobalGridData()
  InitGlobalNavigData()
  set gCompareSC to EMPTY
  set gSndCastNumber to 10520
  set gSndSprite to 0
  set gScreenStatus to #VIGNET
  set gRunningMovie to [#stop, 0, 0]
  if the machineType = 256 then
    set gDrawColor to 39
  else
    set gDrawColor to 216
  end if
  set gZoomHighlight to 227
  set gTransitionSize to 0
  set gFBData to []
  set gPictData to []
  set gRedTagData to []
  set gBracketData to []
  set gRegionData to []
  set gZoomData to []
  set gCutData to []
  set gJumpData to []
  set gLinkData to []
  set gLstAnimHS to []
  set gFreeSprite to 1
  set gLstAllLabels to [:]
  set gOldLabelList to []
  set gShowAll to 0
  set gPictureOnly to 0
  set gCurrAnimation to -1
  ResetScreenLists()
  set gActiveHS to [#void, 0, []]
  set gCurrentCut to 1
  set gCurrentScreen to 0
  set gZoomRect to rect(0, 0, 0, 0)
  set gCancelMouseDown to 0
  set gReturnDialog to EMPTY
  set gReturnHelp to EMPTY
  set gLstIllustScr to [#ILLUSTRATION, #ZOOM, #REGION, #FAMILY]
  set gCallingLevel to 0
  if the machineType = 256 then
    set gPopUpButtonCast to 10817
    set gLabelHeight to 14
  else
    set gPopUpButtonCast to 10826
    set gLabelHeight to 13
  end if
  set gListWordFrench to []
  set gListWordEnglish to []
  set gListWordSpanish to []
  set gNbWord to [0, 0, 0]
  set gNbWordMax to [0, 0, 0]
  set gIndexLabel to EMPTY
  set gCurrentPos to [1, 1, 1]
  set gCurrentPosC to [1, 1, 1]
  set gHighLightPos to [0, 0, 0]
  set gHighLightPosC to [0, 0, 0]
  set gSelection to EMPTY
  set gIndexChange to 1
  set gContenuChange to 1
  set gNbItemC to [0, 0, 0]
  set gCurrentField to 0
  set gCurrentFieldC to 0
  put " " into field 10095
  put " " into field 10096
  put " " into field 10097
  put " " into field 10098
  put " " into field 10099
  put " " into field 10100
  put " " into field 10101
  set the foreColor of cast 10555 to 96
  set the foreColor of cast 10569 to 96
  set gPrinterObj to #void
  set gLstHelpRect to [rect(54, 67, 183, 163), rect(188, 67, 317, 163), rect(322, 67, 451, 163), rect(456, 67, 585, 163), rect(54, 192, 183, 288), rect(188, 192, 317, 288), rect(322, 192, 451, 288), rect(456, 192, 585, 288), rect(122, 316, 251, 412), rect(255, 316, 384, 412), rect(389, 316, 518, 412)]
end